home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H108.ZIP / JUN91.ZIP / TIP668.LSP < prev    next >
Lisp/Scheme  |  1991-09-26  |  597b  |  21 lines
  1. ;TIP668.LSP   Dim Status on Screen Menu   (c)1991, Terry Priest
  2.  
  3. (defun DMLN ()
  4.   (cond 
  5.     ((and (zerop (getvar "DIMSE1"))
  6.           (zerop (getvar "DIMSE2")))
  7.        (grtext 5 "EXLIN"))
  8.     ((and (not (zerop (getvar "DIMSE1")))
  9.           (not (zerop (getvar "DIMSE2"))))
  10.        (Grtext 5 "NOEXLIN"))
  11.     ((and (not (zerop (getvar "DIMSE1")))
  12.           (zerop (getvar "DIMSE2")))
  13.        (grtext 5 "NO1STLN"))
  14.     ((and (zerop (getvar "DIMSE1"))
  15.           (not (zerop (getvar "DIMSE2"))))
  16.        (grtext 5 "NO2NDLN"))
  17.   )
  18.   (grtext 2 (rtos (getvar "DIMSCALE") 2))
  19.   (princ)
  20. )
  21.